Imports Tafi.VisionColor

Namespace Tafi.JPosse.UI

    Partial Class _Default
        Inherits System.Web.UI.Page

        Protected Sub BtnAceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnAceptar.Click
            Dim oUserDS As DataService.Us_WebDS
            Dim oUser As Entities.Us_Web
            Try
                oUserDS = New DataService.Us_WebDS

                Session("oUser") = Nothing

                oUser = oUserDS.GetUserBySign(txtUserId.Text, txtPassword.Text)

                lblMsg.Text = ""

                If oUser Is Nothing Then
                    lblMsg.Text = "Los datos ingresados no son v&aacute;lidos, pruebe con otros !"
                    Exit Sub
                End If

                oUser.Saldo = oUserDS.GetSaldo(oUser.Contrato, oUser.Abonado)

                Session("oUser") = oUser

                Response.Redirect("Forms/FrmMenuSolicitudes.aspx", False)
            Catch ex As Exception
                Throw ex
            Finally
                oUser = Nothing
                oUserDS = Nothing
            End Try

        End Sub

    End Class

End Namespace
